home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 147 / 147.d81 / b.drive swapper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  65 lines
  1. 50 du=29:rem dummy dev. (intermediary)
  2. 60 ad=119:rem make ad=12 for old commodore drives
  3. 70 print"[147]":poke53281,0:poke53280,0
  4. 80 fori=8to29
  5. 82 open8,i,8:close8
  6. 84 ifst=0thendd=i:i=29
  7. 86 next
  8. 90 sd=0:fori=8to29:ifi=ddthen96
  9. 92 open8,i,8:close8
  10. 94 ifst=0thensd=i:i=29
  11. 96 next
  12. 100 print "[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  13. 102 [129]i[178]0[164]8[170]6[172](sd[178]0):[153] "(NULL)                                     (NULL)":[130]
  14. 104 [153] "/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp"
  15. 106 [139]sd[178]0[167]130
  16. 110 [153] "cont (NULL)wap disk drive unitlist";dd
  17. 112 [153] "cont with disk drive unitlist";sd
  18. 116 [153] " (NULL)(NULL)atnlenval cont- lenhange units to be swapped
  19. 118 print " [210][197][212][213][210][206] [154]- [208]erform swap/change
  20. 120 [137]180
  21. 130 [153] "cont lenhange drive unitlist";dd"contto    cmdcmdcmd";
  22. 140 [141]50000
  23. 142 [139]q9[179]8[176]q9[177]29[167]130
  24. 150 sd[178]q9:sw[178]0
  25. 160 [159]15,dd,15
  26. 162 [152]15,"m-w" [199](119) [199](0) [199](2) [199](sd[170]32) [199](sd[170]64)
  27. 164 [160]15
  28. 170 [137]280
  29. 180 [161]a$:[139]a$[178]" "[167][141]400
  30. 190 [139]a$[179][177][199](13)[167]180
  31. 195 [139]dd[179]8[176]dd[177]29[176]sd[179]8[176]sd[177]29[167]180
  32. 197 u[178]dd:[139]dd[178]sd[167][128]
  33. 200 [159]8,dd,15:[160]8:[139] st[167]sk[178]1:u[178]sd:[137]230
  34. 205 [159]8,dd,15
  35. 210 [159]9,sd,15:[160] 9:[139] st[167]260
  36. 220 [152]8,"m-w" [199]( ad) [199](0) [199](2) [199](du[170]32) [199](du[170]64):[160]8
  37. 230 [159]9,sd,15
  38. 240 [152]9,"m-w" [199](119) [199](0) [199](2) [199](dd[170]32) [199](dd[170]64):[160]9
  39. 245 [139]skip[167]270
  40. 250 [159]8,du,15:sw[178]1
  41. 260 [152]8,"m-w" [199]( ad) [199](0) [199](2) [199](sd[170]32) [199](sd[170]64):[160]8
  42. 270 :
  43. 280 [151]214,11:[153]:[139]sw[167][153]"str$riveslist"sd"andlist"dd"have been swapped."
  44. 290 [139]sw[178]0[167][153]"str$rivelist"dd"has been changed tolist"sd"cmd."
  45. 300 [128]
  46. 400 [151]214,2:[153]
  47. 410 [153][163]24)"  cmdcmd";:[141]50000
  48. 420 [139]q9[179]4[176]q9[177]30[167]400
  49. 430 dd[178]q9:[153]
  50. 440 [153][163]24)"  cmdcmd";:[141]50000
  51. 450 [139]q9[179]4[176]q9[177]30[167]400
  52. 460 sd[178]q9
  53. 470 [142]
  54. 10000 d[178][194](186):n$[178]"drive swapper":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  55. 50000 q9$[178]"":u9[178]53280:[151]198,0
  56. 50010 [161]a$
  57. 50020 [151]646,[187](1)[172]15[170]1:[153]"tocmd";:[139]a$[178]""[167]50010
  58. 50030 [139]a$[178][199](13)[167][153]" ":q9[178][197](q9$):[142]
  59. 50040 [139](a$[178][199](20)[175][195](q9$))[167]q9$[178][200](q9$,[195](q9$)[171]1):[137]50090
  60. 50050 [139][195](q9$)[177][178]2[167]t9%[178][194](u9):[151]u9,1:[151]u9,t9%:[137]50010
  61. 50060 [139]a$[179]" "[176](a$[177][199](127)[175]a$[179][199](160))[176]a$[178][199](34)[167]50010
  62. 50070 q9$[178]q9$[170]a$
  63. 50080 [153]""a$;:[137]50010
  64. 50090 [153]" cmdcmd cmd";:[137]50010
  65.